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FOCL.S, AN EXPANDED LANGUAGE FOR 
SMALL COMPUTERS, BASED ON FOCAL 

DECUS Program Library Write-up Pl^^JiOj-f^^lli? 

DESCRIPTION 



FOCL/S IS A ONE USER VERSION OF FOCAL/69 FOR 8K PDP-8/12 
COMPUTERS, AMONG THE ADDITIONAL FEATURES ARE: 

-UP TO 8 MULTIPLE SUBSCRIPTED ARRAY VARIABLES. 

-TEXT, VARIABLES, PUSHDOWN LIST, AND EXTENDED FUNCTIONS 
HAVE BEEN MOVED TO FIELD 1 THUS : (1) FREEING 

CORE IN FIELD FOR USER DEFINED FUNCTIONS. (2) MORE EFFICIENT 
TRADE OFF BETWEEN TEXT STORAGE AND VARIABLES. 

-XOD COMPATIBILITY FOR EASY DEBUGGING. 

-DIRECT ACCESSING OF CORE.* 

-EXECUTION OF MACHINE LANGUAGE INSTRUCTIONS, THUS ALLOWING 
ABILITY OF DRIVING SPECIALIZED HARDWARE DIRECTLY WITH FOCL/S.* 

-LOGICAL 'AND* BETWEEN EXPRESSIONS.** 

-OCTAL TO DECIMAL CONVERSION. 

-DECIMAL TO OCTAL CONVERSION. 

-*ON' COMMAND. - A THREE BRANCH "CONDITIONAL DO"; CALLS 
LINES OR GROUPS AS SUBROUTINES UPON CONDITION OF AN 
EXPRESSION (SIMILAR TO IF ONLY 'DO* IS EXECUTED INSTEAD 
OF 'GOTO') 

-LINE NUMBER COMPUTATION FROM ARITHMETIC EXPRESSIONS.*** 

-NO LIMIT (EFFECTIVELY) TO LENGTH OF DIRECT COMMAND LINE. 

-CONT/K - CONTINUATION CHARACTER FOR TEXT/COMMAND LINES. 

-TDUMP TYPES VARIABLES III ORDER OF MOST RECENTLY CREATED 
FIRST: AS IN DEBUGGING Of'E IS USUALLY INTERESTED IN THE 
MOST RECENTLY CREATED VAUABLES. 

1ANKS TO "F0CAL+" BY D.DYMENT 
W THANKS TO "FAND" BY J. C. ALDERMAN 
4+* THANKS TO A.H.WILSON 



COMPATIBILITY WITH FOCAL/69 

SYNTACTICALLY FOCL/S IS COMPLETELY COMPATIBLE WITH FOCAL/69. 
THE PROGRAM WAS INTENDED TO BE A SUPERSET OF FOCAL/69. THE 
ONLY DIFFERENCES ARE: 

-THE LIBRARY EXIT COMMAND HAS BEEN REMOVED: HOWEVER 

THE USER MAY EXAMINE THE EQUIVALENT LOCATIONS THROUGH USE 

OF THE FX(1,X,Y) COMMANDS AND CONVERT THEM TO OCTAL THROUGH 

USE OF THE FX(8,N) COMMAND 

-T $ CAUSES TYPEOUT OF THE VARIABLES IN REVERSE ORDER 

TO THAT IN WHICH THEY WERE CREATED 

-THE ERROR DIAGNOSTIC LIST IS EXTENDED AND CHANGED 



Multiple subscripted arrays 



THESE ARRAYS ARE STORED IN A "COMMON" STORAGE AREA, AVAILABLE TO 
ALL FOCL/S PROGRAM SEGMENTS. THEY ARE INITIALIZED WITH THE 
LIBRARY OPEN COMMAND, WHICH HAS THE FOLLOWING SYNTAX: 

LIBRARY OPEN, NAME, ORIGIN, LIMIT1, LIM2, LIM3, LIM4 (RETURN) 

FOR EXAMPLE: 

LIBRARY OPEN, X, 0,2, 2, 2, 2 

WILL OPEN A 4-DIMENSI0NAL ARRAY NAMED X OF MAXIMUM LENGTH 2 

IN EACH DIMENSION. THE VARIABLE ORIGIN PARAMETER IS 0, 

WHICH MEANS THAT THE ARRAY WILL BE STORED AT THE LOWER BOUND 

(BEGINNING) OF THE VARIABLE STORAGE AREA. IN THE PRESENT VERSION 

THE LIBRARY OPEN COMMAND MUST BE THE LAST STATEMENT 

ON A LINE. 

VARIABLE STORAGE AREA IS ASSIGNED BY THE LIBRARY LIMIT COMMAND, WHICH 
HAS THE FOLLOWING SYNTAX. 

LIBRARY LIMIT, EXPRSSION 

IT IS NECESSARY AT THE BEGINNING OF THE PROGRAM (OR AT LEAST PRIOR 
TO THE LIBRARY OPEN COMMAND) TO SET THE LIMIT VIA THIS COMMAND IN 
ORDER TO DEFINE THE BORDER (AT ABSOLUTE ADDRESS 'EXPRESSION') 
BETWEEN THE COMMON ARRAY STORAGE AREA AND THE VARIABLE/TEXT AREA. 
EXPRESSION IS LIMITED TO 1341 (OCTAL)< 'EXPRESSION *<7577(OCTAL) 
-EXAMPLE: L L,4095-128-3*N WILL SET LIMIT TO ALLOW SPACE FOR N 

VARIABLES 
(SEE CORE MAP FOR MORE COMPLETE DESCRIPTION) 

THE COMMAND 

LIBRARY CLOSE, NAME 
WILL RELEASE THE VARIABLE NAME FROM ITS RESERVED ARRAY STATUS. 

NOTE THAT ADDRESS COMPUTATION IS CARRIED OUT ON ARRAYED 
VARIABLES, THUS REQUIRING ONLY 3-WORDS PER VARIABLE. I.E. 
VARIABLE STORAGE IS MORE EFFICIENT WITH REGARD TO CORE STORAGE 
THAN 'NORMAL' VARIABLES (5-WORDS) 

LIMITATIONS 

THERE ARE MAXIMALLY 8 SUCH DIMENSIONED ARRAYS AVAILABLE. EACH MAY 
HAVE A MAXIMUM DIMENSIONALITY OF UP TO A SUBSCRIPTS. SUBSCRIPTS 
MUST BE GREATER THAN AND WILL BE CONSIDERED INTEGERS. THE 
SUBSCRIPTS ARK EVALUATED AS THE \V. BIT LOW ORDER 1NIH.IH 
PART OF 'LIM1TN' AND IS ASSUMED POSITIVE, 



MAY NOT BE USED TO LEFT OF "=" IN FOR STATEMENT. 

THE ONLY CHECK ON THE VALIDITY OF THE ADDRESS COMPUTATION IS 
THAT THE RESULTANT ADDRESS IS WITHIN THE AVAILABLE ARRAY STORAGE AREA 
AS SET BY THE LIBRARY LIMITS COMMAND, HENCE IT IS POSSIBLE TO USE 
SUBSCRIPTS WHICH ARE OUTSIDE OF THE DIMENSIONAL LIMIT - HOWEVER, 
THE USER MUST BE AWARE THAT OTHER ARRAYED VARIABLES MAY BE 
OVERWRITTEN. FOR EXAMPLE 

*L L,3000 

*L 0, A, 0,2, 2, 2 

*S A<1,1,3)=0 
THE LAST COMMAND WILL NOT GENERATE AN ERROR MESSAGE - BUT THE 
VARIABLE A( 1,2,1) WILL BE SET EQUAL TO AS THE ADDRESS 
COMPUTED BY A( 1,1,3) IS THE SAME AS THAT OF A( 1,2,1). 

ARRAY ADDRESS COMPUTATION 

THE ARRAYS ARE STORED IN ROW-COLUMN ORDER, AND IT MAY BE USEFUL 
TO ASSIGN MORE THAN ONE ARRAY TO THE SAME STORAGE AREA SO THAT IT 
MAY BE ADDRESSED THROUGH A DIFFERENT ADDRESS COMPUTATIONAL 
ALGORITHM. 

SUBSCRIPTS ARE CONSIDERED IN ORDER OF ROW, THEN COLUMN ADDRESS. 
THE LIMITS MENTIONED ABOVE ARE THE LENGTHS OF THE ROWS. IF THE 
SUBSCRIPTS ARE CONSIDERED IN THE ORDER OF PRESENTATION AS A(1),A(2), 
A(3),A(4), AND THE LIMITS ARE CORRESPONDINGLY L( 1 ) ,L<2) ,L(3 ) , 
AND L(4), THEN THE FOLLOWING FORMULA MAY BE USED TO COMPUTE THE 
RELATIVE ADDRESS (FROM THE BEGINNING OF THE AREA ASSIGNED TO THE 
ARRAY) OF AN ELEMENT IN THE ARRAY: 

«<A(l)-l)*LC2)+A(2)-l)*L(3)+A(3)-l)*L(4)+A(4)-l 

IN THE EXAMPLE, FOR LIMITS 2,2,2,2, THE ABOVE SIMPLIFIES TO: 

(UA(1)-1)*2+A(2)-1)*2+A(3)-1)*2+A(4)-1 

THE FOLLOWING FOCL/S PROGRAM WILL PERFORM THE EQUIVALENT 
COMPUTATION: 

SET IN=A(1)-1;F0R M=2,4jSET IN=IN*L<M)-1 

THESE COMPUTATIONS ARE, OF COURSE, PERFORMED BY FOCAL/S AUTOMATICALLY, 
BUT IT IS USEFUL TO KNOW THE ADDRESSING ALGORITHMS, EXPECIALLY 
FOR PERFORMING "DUMPS" OF THE ARRAYED STORAGE. 

EXAMPLE: TO CREATE TWO VARIABLES WHICH DO NOT OVERLAP: 

L O,A,0,2,2 

L 0,B,5,4,4 
IN THIS EXAMPLE THE ORIGIN OF THE "B" VARIABLE WAS SET TO 5 AS THE 
"A" VARIABLE TAKES UP THE FIRST 4 ARRAY LOCATIONS. HENCE, THROUGH 
THE USE OF THE ORIGIN VARIABLES MAY BE CREATED IN COMMON OR NOT IN 
COMMON. 



"ON" COMMAND 

THE "ON" COMMAND IS A THREE BRANCH CONDITIONAL 'DO'. IT FUNCTIONS 
SIMILAR TO THE IF COMMAND (ACTUALLY USES SOME OF 'IF'S CODING), 
EXCEPT THAT THE LINE NUMBER (OR GROUP) IS EXECUTED AS IN A 'DO* 
COMMAND RATHER THAN AS IN A 'GOTO' COMMAND. 
— EXAMPLE: ON (X)2. 1 ,5,3. 4;D 6JC0NTINUE 

IN THIS CASE IF X<0 LINE 2.1 IS EXECUTED THEN GROUP 6 

IS EXECUTED; CONTROL CONTINUES ON 
TO NEXT LINE 
X=0 GROUP 5 IS EXECUTED;THEN GROUP 6 
X>0 LINE 3.4 IS EXECUTEDjTHEN GROUP 6 



LINE NUMBER COMPUTATION 



FOCL/S WILL ALLOW ANY ARITHMETIC EXPRESSION 
'DO', 'IF*, 'GOTO', 'MODIFY', OR 'ON* COMMANDS 
— EXAMPLE: ON (X)-X,4. 1 ,X+.3;C-REST OF LINE 

IN THIS EXAMPLE IF X=-2, GR( 
EXECUTED AS A SUBROUTINE WIT 
IF X=0, LINE 4.1 WOULD BE E>: 
IF X=2, LINE 2.3 WOULD BE E> 
REST OF LINE. 
STARTS WITH A NUMBER, THE 
IS CARRIED OUT. AS THE I. 
EXPRESSIONS USES THE FLOATIN 
HENCE, IN FOR LOOPS ETC, WH 



FOR A LINE NUMBER IN 



TO 
LINE NUMBER 
COMPUTATION 
FROM ARITHMETIC 
IS RATHER SLOW. 



IF THE 
NUMBER 



SAVE TIME, EXPLICIT LINE NUMBER EXPRESSIONS 
—EXAMPLE: DO X; TAKES LONGER THAN 

TO COMPUTE THE LINE NUMBER. SIMILAR 
ILLEGAL AS THE EXPRESSION STARTS OUT 
WHEREAS "DO X*2" WILL COMPUTE A LINE 



UP 2 WOULD BE 
H RETURN TO REST OF LINE. 
ECUTED;THEN REST OF LINE 
ECUTED, WITH CONTROL RETURNED 

OLD SCHEME OF LINE 
INE NUMBER CALCULATION 
G POINT PACKAGE, IT 
ERE ONE WISHES TO 
ARE DESIREABLE. 

DO 3.1 
LY "DO 2*X" IS 

WITH A NUMBER (2). 

NUMBER. 



CONTINUATION CHARACTER CNT/K 



IN ORDER TO IMPLEMENT LONG LINES OF DIRECT OR INDIRECT COMMANDS A 

SPECIAL CHARACTER (CONTROL/K) IS USED. WITHIN FOCL/S THIS 

CHARACTER FUNCTIONS THE SAME AS M ; w EXCEPT WHENEVER IT IS TO 

BE TYPED FOCL/S TYPES M tK(CR) (LF) (6 SPACES)". HENCE MAKING 

PROGRAM EASY TO READ. 

-EXAMPLE- 02.10 S X= (X 12-t FSQT(Y + :W ) + t A( 1 , J, KHB( J,K) ] t4> TK 



I NO II I- I A) t A( 



:,.I,K> 



S X-X/K; 

STRICTLY SPEAKING THIS IS NOT A CONTINUATION CHARACTER 
AS IT ALSO IS A COMMAND TERMINATOR. 



A«; IN KiKTRAN 



COMMAND STRINGS 



FOCL/S HAS NO 
STAR (*) MODE 



SEPARATE COMMAND BUFFER FOR DIRECT COMMANDS. IN THE 
THE COMMAND STRING IS APPENDED TO' THE INDIRECT 
COMMAND BUFFER: HENCE COMMAND STRINGS MAY BE AS LONG AS THE 
USER LIKES. BY USE OF THE tK CHARACTER LONG AND POWERFUL COMMAND 

OTD TllfiC 



mav DC tmqi rMC-uTtrn 



Functions available 

several functions have not been implemented in focl/s as ( 1 ) the original 
routines are not very good, or (2) i have found that users prefer 
to code them for their specific hardware. the functions that 
have been removed are: 

FRAN 
FADC 

THE FX FUNCTION HAS BEEN EXPANDED TO PERFORM SEVERAL DIFFERENT 
OPERATIONS AND TO ALLOW EXPANSION FOR USER DEFINED FUNCTIONS, THE 
GENERAL FORM IS: 

FX(N,ARG1,ARG2, — ) 

WHERE N IS PRESENTLY 1,2,3,8,10 (DECIMAL). 

FX(1,ARG1,ARG2) 

THE CORE MEMORY FUNCTION (FCOR IN FOCAL+ BY D.DYMENT). 

THIS FUNCTION MAY BE USED IN TWO DISTINCT WAYS; FX(1,ARG1) 

TAKES AS ITS VALUE THE CONTENTS OF THE MEMORY LOCATION 

SPECIFIED BY *ARG1 ' (WHICH MUSTBE A DECIMAL VALUE IN THE 

ANGE 0-32767); FX( 1,ARG! , ARG2) PERFORMS 

SIMILARLY, FIRST DEPOSITING 'ARG2* IN THE SPECIFIED MEMORY 

LOCATION. THUS THE STATEMENT "SET X=FX( 1, 12345, FX( 1 , 12345)+1) ", 

WOULD INCREMENT THE CONTENTS OF MEMORY LOCATION 12345 

(FIELD 3, LOCATION 0071 (OCTAL)) AND SET *X ' EQUAL TO THE 

NEW VALUE. 

ALL ARGUMENTS ARE DECIMAL - THE FX(10,-)AND FX(8,-) MAY 

BE USED TO CONVERT FROM OCTAL TO DECIMAL. 

FX(2,ARG1,ARG2) 

THE "EXECUTE" FUNCTION (FXCT IN FOCAL+ BY D.DYMENT). 
THIS FUNCTION WHICH TAKES TWO ARGUMENTS - FX(2, ARG1 , ARG2) 
WILL EXECUTE THE MACHINE LANGUAGE INSTRUCTION SPECIFIED BY 
*ARG1 \ THE VALUE OF *ARG2' WILL BE PLACED IN THE 
ACCUMULATOR PRIOR TO THIS INSTRUCTION EXECUTION, AND THE 
VALUE OF THE FUNCTION IS THAT SPECIFIED BY THE ACCUMULATOR 
FOLLOWING INSTRUCTION EXECUTION. BOTH ARGUMENTS MUST BE 
DECIMAL VALUES IN THE RANGE OF 0-4096; , ARG2 f IS ASSUMED 
TO BE ZERO IF OMITTED. NEEDLESS TO SAY, "JMP" INSTRUCTIONS 
AND THE LIKE SHOULD BE EXECUTED ONLY WITH EXTREME CAUTION. 
A SIMPLE EXAMPLE -- SET Y=FX(2,3844) WILL SET Y EQUAL 
TO THE VALUE OF THE SWITCH REGISTER. 



BRANCH 

THE BRANCH COMMAND IS A CONDITIONAL "GOTO" COMMAND. 
THIS COMMAND FUNCTIONS IN A MANNER IDENTICAL TO 
THE 'GOTO* COMMAND EXCEPT THAT IT WILL FUNCTION AS A 
NOP IF THE LAST INSTRUCTION EXECUTED BY THE FX<2,--) 
FUNCTION CAUSED A SKIP TO OCCUR. THUS THE PRESENCE OR 
ABSENCE OF A SKIP MAY BE TESTED. EXAMPLE -- 

3.14 SET Z=FX(2,3089)?BRANCH 3.14 
THIS WILL CAUSE THE PROGRAM TO WAIT UNTIL THE HIGH SPEED 
PUNCH FLAG IS SET, AND THEN CONTINUE TO THE NEXT LINE 
OF INSTRUCTIONS. 

NOTE: USERS OF THE FX(2, — ) COMM/ND TO CONTROL PERIPHERAL 

HARDWARE MUST KEEP IN MIND THAT FOCL USES THE INTERRUPT 
SYSTEM FOR I/O SERVICING, AND IS NOT SET UP TO HANDLE 
INTERRUPTS GENERATED BY ADDITIONAL DEVICES. USERS EXPECTING 
INTERRUPT REQUEST FLAGS MAY EXTEND THE SKIP CHAIN TO HANDLE 
FLAGS FOR THE NEW DEVICES (FX(l f --> MAY BE USED FOR THIS). 

FX(3,AR61,ARG2) 

THIS IS THE 'AND* FUNCTION (FIRST IMPLEMENTED BY J. C. ALDERMAN) . 
THIS FUNCTION CONVERTS ARG1 AND ARG2 TO THE LOW ORDER 12 
BITS OF THEIR INTEGER VALUE, AND THEN PERFORMS THE 'LOGICAL 
AND' OF THEM, LEAVING THE RESULT AS THE VALUE OF THE 
FUNCTION. THIS FUNCTION IS USEFUL FOR MASKING OPERATIONS, 
ESPECIALLY WITH STATES MASKS, ETC., USED WITH EXTERNAL 
DEVICES. — EXAMPLE: TYPE FX(3,255,A) WILL PRESERVE 
ONLY THE LOW ORDER 8 BITS OF A. 



FX(8,ARG) 



THIS FUNCTION TAKES THE VALUE 'ARG' AND CONVERTS IT TO 
ITS OCTAL EQUIVALENT. NOTE THAT THE VALUE OF THE 
FUNCTION IS A DECIMAL-FLOATING POINT NUMBER, HOWEVER, 
IT WILL BE THE DECIMAL OCTAL-EQUIVALENT OF THE DECIMAL 
VALUE 'ARG\ 
EXAMPLE: FX(8,2t9) OR FX(8,512) WILL HAVE THE VALUE 1000. 



FX(10,ARG) 



THIS FUNCTION CONVERTS THE (DECIMAL) OCTAL NUMBER 'ARC* 
AND CONVERTS IT TO ITS DECIMAL EQUIVALENT. (SEE ABOVE). 
EXAMPLE: FX(10,2048) WILL HAVE THE VALUE 4000 OR 2tll. 



ADDITIONAL FUNCTIONS 



IN ADDITION TO THE LINKS TO THE ABOVE FUNCTIONS, LINKS 
ARE AVAILABLE TO FX(N,---) FOR N=4,5,6,7 BY ENTRY OF 
THE APPROPRIATE ENTRY ADDRESS INTO THE TABLE FXGO. 
(SEE TECHNICAL SECTION TO FOLLOW FOR FURTHER DETAILS) 



TECHNICAL DETAILS 

EXTENDED FUNCTIONS 

HAVE BEEN MOVED TO FIELD 1. OCCUPYING UP TO LOCATION 1340. 
ROUTINES MODIFIED OR DELETED 

FPNT 

ALL EXTENDED FUNCTIONS 

FSQT 

LIB - DELETED 

NORMAL FIELD 1 PART OF 8K OVERLAY 

INITIAL DIALOGUE 

HAS BEEN REMOVED. HOWEVER A DIALOGUE MAY BE TAILOR MADE TO 
THE USER'S ENVIRONMENT THROUGH USE OF THE FX(l,-~ ) 
COMMAND. 



LOADERS 



TEXT 



AS THE PS/8 SYSTEM DOES NOT HAVE LOADERS IN CORE AT ALL 
TIMES, ONE EXISTS IN FIELD 1 (STARTING ADDRESS 3777) TO 
FACILITATE OVERLAY READIN- NOTE THAT TEXT AND VARIABLES 
WILL OVERWRITE THIS WHEN NECESSARY AS FOCL/S IS USED. 



IN FIELD 1* STARTS AT 1340 BUILDING TOWARD 7577. 



VARIABLES 

HAVE BEEN MOVED TO FIELD I TO ALLOW (1) ADDITIONS TO THE 

INTERPRETER IN FIELD AND (2) TRADEOFF BETWEEN VARIABLES 

AND TEXT. THE FPP, GETVAR, TDUMP, AND ERASE 

ROUTINES HAVE BEEN MODIFIED TO BEGIN VARIABLE STORAGE AT 

THE UPPER LIMIT OF FIELD ONE AND BUILD DOWNWARDS. THIS IS TO 

AVOID ERASING VARIABLES WHENEVER TEXT IS MODIFIED. THE 

ONLY OBSERVABLE DIFFERENCE BETWEEN THIS AND 8K-F0CAL IS THAT 

(1) FOR ALL BUT MAXIMUM SIZED PROGRAMS MORE VARIABLES 
ARE AVAILABLE. 

(2) 'TDUMP' DUMPS VARIABLES IN REVERSE ORDER TO FOCAL/69 
I.E. THE MOST RECENTLY CREATED VARIABLE IS DUMPED 
FIRST. 

MODIFICATIONS HAVE BEEN MADE TO GETVAR, SET, AND FOR 
TO IMPLIMENT ARRAY VARIABLES 
ROUTINES MODIFIED OR DELETED 

FPNT 

XRTL6 (MOVED) 

TDUMP 

ERASE 

FOR/SET 

ASK/TYPE 

GETVAR 



PUSH DOWN LIST 

THE PDL RESIDES IN FIELD 1 WITH THE TEXT AND VARIABLES. AS 

OPPOSED TO FOCAL/69 THE PDL IS BUILT FROM THE TOP OF TEXT 

UPWARDS RATHER THAN THE TOP OF CORE DOWNWARDS. 

THIS WAS TO ALLOW VARIABLE STORAGE SUSCH THAT MODIFYING TEXT 

DID NOT ERASE VARIABLES. 

ROUTINES MODIFIED OR DELETED 

INPUTX 

START 

GONE 

XPUSHA 

XPOPA 

XPUSHF 

XPOPF 

RETRN 



ERRORS 



THE ERROR RECOVERY ROUTINE HAS BEEN MODIFIED TO GENERATE MORE 
UNIQUE ERROR MESSAGES. WHAT HAS BEEN DONE IS IF THE ERROR 
WAS TABLE DRIVEN IT PRINTS THE TABLE POINTER AS A LINE NUMBER. 
THE ERROR TABLE IS GIVEN LATER. 



USER DEFINED FUNCTIONS 



THE USER MAY CODE MACHINE LANGUAGE FUNCTIONS FOR USE IN FOCL/S 
THROUGH THE FX FUNCTION BRANCH WITHOUT SACRIFICING PRESENTLY 
EXISTING FUNCTIONS OR FUNCTION NAMES. ENTRY OF THE STARTING 
ADDRESS OF THE FUNCTION INTO THE FXGO TABLE WILL CAUSE BRANCH 
TO THAT ADDRESS WITH 'CHAR* EQUAL TO CHARACTER 
FOLLOWING THE N IN FX(N,--> (COMMA IN THIS CASE) 

FXGO=. (3773) 

OCTANX /FX(8) 

DECNX /FX(10) 

FCOR /FX(1) 

FXCT /FX(2) 

FAND /FX(5) 

FXNO /FX(4)-N0T IMPLIMENTED 

FXNO /FX(5) 

FXNO /FX(6) 

FXNO /FX(7) 

SEVERAL ROUTINES EXIST FOR EVALUATING ARGUMENTS. TO MOVE 

PAST COMMA AND EVALUATE NEXT ARGUMENT: 
PUSHJ 

NXTARG 
XXXX /NEXTARG DOES NOT EXIST 
XXXX /NORMAL RETURN WITH ARG IN FLAC 
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OTHER 


USEFUL ROUTINES ARE: 








TO 


SET 'FLAC* EQUAL TO INTEGER 


VALUE 


OF 


ACCUMULATOR: 








JMS I PXFIX 












PXFIX, 


XFIX 








TO 


DO 


THE ABOVE 


AND DO A NORMAL 


, FUNCTION 


RETURN: 








JMP I PSETFLAC 












PSETFL, 


SETFLAC 








HOLE AVAILABLE 


TO USER IS: 4454- 


5377 







ARRAY STORAGE 

THE LIBRARY LIMIT COMMAND DEFINES THE BOUNDARY BETWEEN 
RESERVED ARRAYS AND THE TEXT/PDL/VARIABLE AREA OF 
FIELD 1. WHEN THIS COMMAND IS EXECUTED ALL PRESENT VARIABLES 
ARE ERASED. IF AN ATTEMPT IS MADE TO SET THIS LIMIT LOWER 
THAN THE UPPER BOUND OF TEXT CURRENTLY IN CORE, THEN THE 
COMMAND IS IGNORED AND AN ERROR MESSAGE IS PRINTED. 

XOD COMPATIBILITY 

THE INTERRUPT PROCESSOR BRANCH HAS BEEN CHANGED TO ALLOW 
DIRECT USE OF 'XOD* AS A DEBUGGING PACKAGE FOR 
FOCL/S. A BINARY TAPE IS AVAILABLE, WITH 
PATCHES TO MAKE THE COMMAND STRUCTURE SIMILAR TO ODT, OF 
XOD THAT IS DESIGNED TO RUN WITH FOCL/S. THE BEAUTY OF 
XOD IS THAT IT RUNS WITH THE INTERRUPT ON AND RESTORS 
KEYBOARD FLAGS TO THE STATE IT EXISTED WHEN BREAKPOINT 
WAS REACHED. 



HINTS AND KINKS 

-TO TAKE OUT EQUALS: FX( 1,31 65, 1 60) 

- TO TAKE OUT COLON: FX( 1 ,658,3712) 

- TO CHANGE CNT/C TO CNT/O: FX( I , 14 10,3953) 

FX( 1,3923, 143) 

- TO CHANGE V TO CNT/U: FX( 1,3924, 149) - [COMMAND LINES) 

FX( 1,3583, 149) - [ FPP. INPUT] 

- TO IMPLIMENT LINE NUMBER COMPUTATION FROM ARITHMETIC 
EXPRESSIONS AT ALL TIMES (I.E. DO 2*X IS LEGAL): 

S Z=FX(1, 196,3065) 
-TO TURN OFF TELETYPE ECCO: FX( 1 , 1 1 40,3 7 12) 
-TO RESTORE TELETYPE ECCO: FX( 1 , 1 140,2404) 
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CORE MAP 



FIELD 



PAGE ZERO DEFS 



F C L / S 

INTERPRETER 



F C L /S 
ADDITIONS 



FREE TO USER 



FLOATING 

POINT 

PACKAGE 



PS/8 MONITOR HEAD 



«- 



«- 3140 



«- 4500 



♦- 5400 



♦-7577 
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FIELD 1 
PAGE 



EXTENDED 
FUNCTIONS 



TEXT 

BUFFER 

I 
I 
V 



PUSH DOWN LIST 
I 
I 
V 



t 

I 

VARIABLES 



ARRAYS 



PS/8 



♦- LINE 



1340 
LINE1 



«- BUFR 



«- PDLXR 



«- FIRSTV=STARTV 



- SET BY LIBRARY LIMITS=BOTTOM 

- 7577 
7777 
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ERROR DIAGNOSTICS - FOCL/S 



MESSAGE ORIGIN 



MEANING 



700.00 
701.00 
701.40 
701.78 
701.96 
701.: 5 
701.; 4 
702.33 
702.53 
702.72 
702.80 
703.08 
703.31 
704.49 
704.64 
704.71 
704.74 
705.53 
706.00 
706.01 
706.08 
706.55 
707.22 
707.38 
707. :9 
707. ;6 
708.48 
708. <1 
708. «2 
709.01 
709.02 
709.12 
710.93 
711.35 



200* 

177* 

250* 

316* 

340* 

351* 

362* 

441 

465 

510 

520 

610 

637 

1057 

1077 

1107 

1112 

1265 

1401 

1402 

1410 

1467 

1626* 

1646* 

1755* 

1764* 

2060 

2172 

2173 

2202 

2203 

2214 

2535 

2643* 



INITIAL STARTUP MESSAGE. 

USER TYPED 'CTRL/C\ 

ILLEGAL STEP OR LINE-NUMBER USED. 

GROUP NUMBER TOO LARGE. 

DOUBLE DECIMAL POINTS IN LINE NUMBER 

LINE-NUMBER TOO LARGE. 

GROUP ZERO IS ILLEGAL AS LINE-NUMBER. 

NONEXISTANT GROUP REFERENCED BY "DO-. 

EXCESS RIGHT TERMINATORS ENCOUNTERED. 

IMAGINARY SQUARE-ROOT REQUESTED. 

PROGRAM TOO LARGE (PUSHDOWN-LIST OVERFLOW), 

NONEXISTANT LINE AFTER "GOTO" OR "IF" 

ILLEGAL COMMAND USED. 

LEFT OF "=" IN ERROR IN "FOR" OR "SET". 

EXCESS RIGHT TERMINATORS. 

ILLEGAL "FOR" COMMAND TERMINATOR. 

LOG OF REQUESTED 

BAD ARGUMENT IN "MODIFY". 

";" ILLEGAL AS ARGUMENT TERMINATOR. 

FOR LOOP TERMINATES BADLY. 

ILLEGAL USE OF FUNCTION OR NUMBER. 

STORAGE FILLED BY VARIABLES 

OPERATOR MISSING OR DOUBLE "E" IN NUMBER. 

NO OPERATOR PRECEEDS PARENTHESES. 

NO ARGUMENT TO THE FUNCTION. 

ILLEGAL FUNCTION NAME OR DOUBLE OPERATORS 

PARENTHESES DO NOT MATCH. 

FRAN FUNCTION NOT AVAILABLE. 

FADC FUNCTION NOT AVAILABLE. 

FNEW FUNCTION NOT AVAILABLE. 

FCOM FUNCTION NOT AVAILABLE. 

BAD ARGUMENT IN "ERASE" COMMAND. 

STORAGE FILLED BY TEXT. 

INPUT TOO FAST FOR OUTPUT. 
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713.97 
713.94 
714.48 
714.82 
715.10 
715.15 
715.38 
715.47 
715.60 
715.65 
715.92 
716.46 
716.62 
716.73 
716.77 
716. J4 
717.51 
717.71 
723.36 
726.73 
728.73 
730.40 
730. :2 



3331 
3336 
3460 
3522 
3612 
3617 
3646 
3657 
3674 
3701 
3734 
4056 
4076 
4111 
4115 
4150 
4263 
4307 
5644 
6543 
7111 
7450 
7546 



SPECIAL VARIABLE TO LEFT OF "=" IN FOR STATEMENT 

ILLEGAL LIBRARY CALL 

ARGUMENT MISSING IN FX 

CONVERSION OF NON-OCTAL # REQUESTED 

NO ARGUMENTS IN FX(3,~ ), 

NO SECOND ARGUMENT IN FX(3,-->. 

ARG1 WRONG IN FXCARG1,-- ) 

VARIABLE IS NOT RESERVED - HENCE "CLOSE" ILLEGAL 

ARRAY NAME ALREADY IN USE 

ALL ARRAY NAMES IN USE 

ONLY 4 SUBSCRIPTS ALLOWED 

TO MAY SUBSCRIPTS FOR THIS VARIABLE 

WRONG NUMBER OF SUBSCRIPTS 

OUTSIDE COMMON ARRAY AREA; < LOWER LIMIT 

OUTSIDE ARRAY AREA; > UPPER LIMIT 

ARRAY 'BASE' OVERLAPPING TEXT (L L,BASE - TO LOW) 

NO ARGUMENT IN FX<1,«> 

NO ARGUMENTS IN FXC2,--). 

INPUT TO FAST FOR FPP. 

NEGATIVE OR TOO LARGE 

BY ZERO REQUESTED. 

MISSING 

MISSING IN FDYS. 



EXPONENT 
DIVISION 
ARGUMENT 
ARGUMENT 



15 



